home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / UTILITY / MIDI8031 / SCHRITT.TXT < prev    next >
Encoding:
Text File  |  1987-04-21  |  662 b   |  24 lines
  1. ' *** Nutzung der MIDI8031-Schrittmotorsteuerung ueber GFA-Basic ***
  2. '
  3. ' Jedem der beiden Motoren sein individuelles Fahrprogramm...
  4. '
  5. px=10                 ! Plotposition
  6. max=32                ! Maximalgeschw. des Steppers
  7. DIM soll(1),ist(1)
  8. PRINT "Ende: <Taste>"
  9. REPEAT
  10.   FOR i=0 TO 1
  11.     IF RND(0)<0.01
  12.       soll(i)=RANDOM(max*4+1)-max*2   ! Sollfrequenz
  13.     ENDIF
  14.     ADD ist(i),SGN(soll(i)-ist(i))    ! 'ist' folgt 'soll'
  15.     PLOT px,100+ist(i)+i*200
  16.     OUT 3,ist(i)/2
  17.   NEXT i
  18.   PAUSE 1             ! Etwas Pause
  19.   px=px+0.1           ! Plotposition weiter
  20. UNTIL INKEY$<>""
  21. OUT 3,0               ! Alle Maschinen STOP!
  22. OUT 3,0
  23. END
  24.